home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Examples / More Examples / Section default values < prev    next >
Text File  |  1998-10-26  |  2KB  |  65 lines
  1. ; The default values are applied to all instruments that are present
  2. ; in the section, except for synth, whose duration is set to '(1/4).
  3. ; The duration of other instruments will be equal to the length defined
  4. ; in default.
  5.  
  6. (def-orchestra 'orchestra
  7.    all-instruments (piano synth)
  8.    piano (left-hand right-hand)
  9. )
  10.  
  11. (def-section sect-a
  12.   default
  13.     zone '(1/1 1/1 1/1 1/1)
  14.     tonality (activate-tonality (major c 4))
  15.     length '(1/8)
  16.     velocity '(64)
  17.   all-instruments
  18.     symbol '(a b c)
  19.   synth
  20.     symbol '(abc defgh c d e f g h i j k l)
  21.     duration '(1/4)
  22. )
  23.  
  24. (def-channel
  25.    synth 1 
  26.    left-hand 2 
  27.    right-hand 3 
  28. )
  29.  
  30. (def-controller gm-controllers
  31.    (all-instruments main-volume 
  32.                     (list '(127)
  33.                           (vector-round 50 100 (gen-sin 1 0.3 16)))) 
  34. )
  35.  
  36. ; When the section is cloned its tonality, velocity and duration
  37. ; will be changed. Note that duration is changed only for synth,
  38. ; not for those instruments which are set to 'as-lengths'.
  39.  
  40. (clone-section sect-a sect-b
  41.    except
  42.       tonality (activate-tonality (pentamajor c 4))
  43.       velocity '(54 55 55)
  44.       duration (do-section :all
  45.                            '(change-length times 2 x)
  46.                            (same-as sect-a))
  47. )
  48.  
  49. (def-tempo 120)
  50.  
  51. (midiport :printer)
  52.  
  53. (play-file-p "default durations"
  54.     all-instruments '(sect-a sect-b sect-a)
  55. )
  56.  
  57. ; If you have multiple sections, and some sections play lengths, some
  58. ; play durations, make it this way.
  59. ;
  60. ; (def-class duration (lh rh)
  61. ;   sect-a as-length  ; this plays duration as defined in lengths
  62. ;   sect-b '(1/4)     ; this plays defined durations
  63. ; )
  64.  
  65.